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user functions in field 0t There is no room in 
field 0 to write a user function, if it is desired to do 
so, a current function not being used can be deleted and 
replaced by the user function. Por example, let the user 
“ nc ^ on UUF square the value of the operand. The code 
for this example is on pp 12-46, Example 1 of Programming 

ST J 9 !?’ If the function to be replaced is LOG 

L f 6U f,° f field *' the <”***« of the function in 
the example would be *6114 instead of *7700. The function 

th^ S d^a r ^ ain IK l0Cati0n U56 - If * CDF is issued, 
the data field must be reset to 1* 

writing user functions in field 1* The room available 
w f* te user functions is from 65 to 174 of field 1. 

ir TMTm i ^° na ^ Space is needed in field 1, the value at 
.™ T . (Ration 2561) can be changed. For example, 
if 64 locations are needed PLIMIT can be set to 7100, then 
locations 7000 to 7077 can be used by the user. The 

cln ^«^ rtant . thing i« that the floating point package 

l lwZl b0 ?! £*2" fi6ld lm HenCG 016 example given in 

1 above could not be done from field 1. However, the 

fac can be changed or an FPP subroutine can be called 

1 *a°aK field fc 1 I„ An exain P le of calling the Fix routine 
rnJ a ? 677 of field 1 b y routine UUPFIX. if a 

to fLid ir 6 "' 3 CDP 10 ^ b ° 9iV6n bef ° re returnin 9 

Unction in field 1, put a 7747 at location 
1156 of field 0. At Location 764 of field 1 put UUF Then 
put the UUF subroutine in available core. For example, if 
the subroutine is to start at location 65 of field 1 
the user function overlay code should be 

FIELD 0 
*1156 

s 7747 


FIELD 1 

*764 

UUF 




*65 

UUF, 0 

| code 
JMP I UUF 
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EXAMPLE l. UUP(A)-a 2 

UUF function in field 0 

FENTER»4435 

FST»2000 

JWD=»200 

FMP*s6000 

PEXIT-0000 

FIELD 0 

*1156 

UUP 

*6114 


UUP, 0 

FENTER 

fst+pwd+x-. 

fmp+pwd+x-. 

FEXIT 
JMP I UUP 


/ENTER ppp 
/Save N 
/N*N 
















'_' ': ■'**'■’ V •• ’ * . 'V'' '„' 


8K Basic r/t 




4r- ,* 7 J- ) r ‘ '/ »'*\ tfij .ifff 

. 

■■•'V; - V 4' f ^:v 

• 

mimM 

.^4pji & •* *fC* ■ V 

Si£5i v® 







• 4 "* 


J. Duffy 


§1 


EXAMPLE 2. UUF(A)»A 2 

UUF function in field 1 

FIELD 0 
*1156 
7747 ’ 

FIELD 1 

*764 

UUF 

*65 

UUF, 0 


JMS UUFl 

CDF CIF 0 

/interchange field 0+1 code 

JMS I UFLDO 

JMS UUFl 

CDF 10 

/call uuf in field 0 
/reexchange code 

JMP I UUF 

/exit from uuf 

UUFl, 0 


TAD UM12 

DCA UUF2 

TAD UFLDl 

DCA UUF3 

TAD UFLD0 

DCA UUF4 

/load number of words to exchange 
/set field 1 and 0 addresses 

UUF6, CDF 10 

TAD I UUF3 

DGA UUF5 

CDF 0, 

TAD I UUF4 

CDF 10 

DCA I UUF3 

CDF 0 

TAD UUF5 

DCA I UUF4 

/exchange values 

ISZ UUF3 

ISZ UUF4 

ISZ UUF2 

JMP UUF 6 

/get next word 


JMP I UUFl 
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UUF4 

UUF 5 

UM12 


/FST+FWD+X- 

/FMP+FWD+X- 

/fbxit 


2205 

6204 

0000 

CDF CIF 10 
5714 


in this example the user function was moved to field 0, 
so that it could use the floating point package. The only 
restriction is that the UUF can't be called at 
the same time the LOG function is called. The example 
isn't a very good programming technique, but is meant only 
to demonstrate the calling sequence of a UUF in field 1, 


fit- v 

Sp y* ; £ < v ’ b 



& 




uup2. 

0 


IJIfal 

UUP 1 , 

0 




UFLD0, 6114 


jit 

UFLDl, UUFX 


1 

UUFX, 0 

^ ! < ; r y yjJ ' /' 7 . ’’ > V**/ * ~ 


4435 

/FENTER 
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3. Writing a user command in field 0* The section in 

the Basic/RT user manual or the Basic/RT section of the 
new manual describes how to implement a user command. 
However, there is no available room in field 0 and 
some function or command must be eliminated to make room. 

To implement a user command in field 0, store UCQM 
at location 306 of field 0 and write the command over an 
existing function. Example 3 writes the command over the 
Exp function. v « 

Return to Basic by jumping to DEVCON, DEVCQM or SKIP1T as 
described in the Basic user's manual.' 

4. Writing a user command in field 1: To put the command 

in field 1, put a 7743 at location 306 of field 0 and the 
UCQM address at 744 of field 1. At the end of the UCQM 
code exit back to field 0 by doing a 

JMS I UJMP 
DEVCON 

or 

JMS I UJMP 
DEVCOM 

or 

JMS I UJMP 
SKIPIT 

depending on the condition of the user command as explained 
in the Basic/RT user's manual. When a user's command 
UCQM is entered the data field is for field 1 (CDF 10). On 
exit the data field must also be field 1. Remember the 
•floating point package can not be called from field 1. 

EXAMPLE 3. user command in field 0. in this example, UCQM 
A,B will multiply A times B, fix the answer, add 260 octal 
to the value and issue a TLS• 
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V; tiff 

jP| fl 

/PAS03 


hr 


Ip $Jt i m i ? v : 

7616 

'K ■ 

4436 

y ' |e K ' fylwJF* *1' 

0200 


2000 

l * 1 : 

0000 

* 

6000 


7176 


0306 

00306 

6114 


6114 

06114 

4740 

06115 

4741 

06 1 1 6 

4435 

06117 

2226 

06100 

0000 

06 HI 

4741 

06 H 2 

4435 

06 If 3 

6222 

) 0610/1 

0000 

06125 

47 42 

06126 

7 200 

06127 

1016 

06130 

134 3 

06 1 31 

6002 

06 1 32 

6041 

061-33 

5332 

06134 

6046 

06135 

6001 

06 1 36 

7200 

06137 

5744 

06140 

0177 

06141 

7616 

06142 

4744 

06143 

026O 

06144 

7 176 

06145 

0000 

06146 

0000 

06147 

0000 




si 



M 


teiMrJ ;t - 


PAL0-V7 


0016 
47 44 
0177 


/PAS03 
AC3-16 
FIX-4744 
GETWD-177 
MKVAL-7616 
FENTER-443b 
FWD-200 
FSTA-2000 
FEXIT-0 
FMU-6000 
DEVCON-7176 
*306 




I®: 


UCOM# 


XGETWF, 


UCOM 
*6 114 

I XGETWL- 
JMS I XMEVAL 
F ENT Eli 

FSTA+FWJ>TEMp** 

KEXIT 

JMF I XMEVAL 
FENTEH 

FMU+FWD+TEMP*• 
FEXIT 
JMS I XFIX 
CL A 

TAB AC3 
TAD UC'160 
I OF 
T3F 

<IM1’ .-1 
TLS 
ION 
CLA 

JMP I XDEVCO 
GETWD 




XMEVAL# MEVAL 
XFIX# FIX 
UCP60# 260 
XDEVCC# DEV CON 
TEMP# 0 ; 0 ; p 


«Mw iHia 
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EXAMPLE 4. User Command in field 1. ln this example, DCOM 
lineK YPe 3 0 ° n the teletype (it m *y overtype the previous 


/pflr-o/i 


m MW : ymi 

000O 

B ehPqp 

0306 

I W 306 

7743 


0001 


0054 
7 175 


0744 

t 10744 

006 5 

f |0065 

0065 

7P00 

1 0066 

600P 

10067 

60/(1 

1 007 Pi 

5067 

1 007 1 

1077 

1007ft 

6046 

1 007 3 

6001 

1007/' 

7 ft 00 

1007:. 

4454 

10070 

717 5 

1 !C077 
m y 

OP60 


PPL8-U7 


POGE 1 


/P0S04 

FII X. D 
*306 
7743 
FI ELL 

L«JMP»54 

IKVCCM-7175 

• 744 


0 


VC CM, 


VCP6C, 


UCCM 
*6S 
CLP 
I OF 
T5F 
JMI ’ 

■T/r 
TL. C 
I ON 
CL/i 

JM£> I IKJMp 
LI.UCCM 
P60 


• * 1 

HPP68 


1 
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When loading Basic/RT from field 1, it will automatically 
start up. when a user function or command is to be 
used, two binary tapes must be loaded in which case 
the automatic startup is undesirable, if the LAB8/e 
has 12K or more, put the binary loader in field 2. 

Load both tapes and start Basic/RT in field 0, data 
field 0 at location 1000. in an 8K machine, load 
Basic/RT and let it start up. Hit a control c, 
halt the machine and load the overlay tape via the 
binary loader. Restart Basic/RT at 1000 or 6725 of 
field 0, data field 0. Note, when loading the overlay 
tape with the binary loader, make sure the data field 
is set correctly. 

in conclusion, to do functions or user commands more complicated 
then shown above, the correct subroutine calling sequence can 
be established from the listing and the attached documentation. 

5*® 1 ®'** w f s c J; eate <* from 4 k Basic Edusystem 10. There is docume static a 
tor 4 k Basic Edusystem 10, The Basic/RT documentation 
considers only the changes from 4 k Basic to 8 k Basic/RT. 
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Myfe, 


-.*■• 


~ 1 . y, 


V 


'J k, 2tUf , 
lUN^'OT, 
,U Kj 2 I N« 


A jO 

Spac 


go through the user symbol table again, reallocating 

E FOR A SCALAR FOP EACH VARIABLE. \>4 


LIMIT, 

XXTHEN, 


-1ST, 

• kEOF, 
3 ||MSY| 
is T NOW # 

1b, 


1 

I <; 

I pi 


[TOP, 

'OOLONG, 

IELETE0, 

[ETL'TET, 


Al^U SET UP THE LOCATION COUNTER, PUSH DOWN LIST, READ POINTER, 
rn TA'BLE, and G0SU3 TABLE FOR EXECUTION 0 r A 'RUN*, 

POINTER TO FIRST word of USER SPACECVARIABLE SPACE STARTS HERE). 
POINTER TO 'THEN* SYMBOL(FAKES LINE GETTER INTO STARTING 

the line with a line number), 
pointer to 'Lis* PROCESSOR, 

TO (EOF) SYMBOL. 

TO PERM, SYMBOL TABLE (USER SYMBOL TABLE IS BELOW IT)', 

TO INDIRECT STATEMENT HANDLER(!NSERTS LINES), 

STATEMENT IS EXECUTEABLE, *T IS NOT EQUIVALENT TO STOP*, 

IT CLEARS VA°IA3LES, THE REaSON FOR THIS IS THAT AFTER A STOP, 

ALL ARRAYS WHICH WERE DEFINED AT THE TIME OF THE STOP REMAIN 
DEFlNEO(INTE°ACTIVEI), IF THE USER THEN CONTINUES TYPING MORE 
PROGRAM, HE WILL EVENTUALLY COME UP AGAINST THE *TOO-BlG ERROR*, 
HE HAS TO HAVE A WAY OF CLEARING HIS ARRAYS TO GET PAST THE 
ERROR, AMO RATHER THAN ADDING A COMMAND, THE END STATEMENT WAS 
UTILIZED, SO THE WAY TO GET PAST THE *TOO-BIG ERROR' IN THIS CASE 
TO TYPE A DIRECT 'END' STATEMENT', 

PRINT 'READY* AND GO TO WAIT FOR A TELETYPE COMMAND, 


pointer 
pointer 
pointer 
the end 


is 


FROM OFF PAGE, 

UP LINENO DEFINITIONS, 


■E 'LIN, 


JEW LI* , 

||ll.CHi R , 


’UBIG, 


iLTMOOt, 
I ARROW;, 
[ARRET, 

iLOC'P, 


The *LINE too LONG' MESSAGE, 
the *OELETEO' MESSAGE. 

FOR returning FROM 'GETLIN' 

AFTER INSERTING A LINE, FIX 

Return, 

Routine FOR GETTING A TRANSLATED(lNTO INTERPRETIVE COOE FORM) 
LINE FROM TH r TELETYPE', IT IS ENTEREO WITH SOMETHING 
I J The AC-THAT SOMETHING BEING A POINTER TO 'THEN* IF The LINE 
n MEANT TO START WITH A LINE NUMBER! AS OPPOSEO TO A LITERAL)', 
GET a NEW LINE, 

ONE CHARACTER PER WORD IN TRIMMED ASCII 
watching out for 175-alt, 176«alt, *•* and (CR>, 

IGNORE NONPRINTING CHARACTERS(AND *f'), 

IF THE LINE IS 3IGGEP THAN THE BUFFER CAN HANDLE, PRINT 
'UwE TOO LONG' AND TRY FOR A NEW LINE, 

PRINT 'DELETED' AND TRY FQR A NEW LINE, 
r eovf. previous characters THERE WAS ONE), 

NOw TmFRt IS a WHOLE LINE OF ASCII IN THE BUFFER, START 

scanning off symbols one at a time, from left to right,' 


[LOOP. IP THERE IS A match WITH THE PERMANENT SYMBOL T A ELE, USE THAT 

A? THE DEFINITION! IGNORE ALL BLANKS IN THE PERM, SYMBOL TABLE)’, 

IL 0 C ^, 
lSKI», 

,MATC'^ , waTch OUT FOR THE SPECIAL CASE OF *REM* (STUFF AFTER 'REM* IS 
TREATED AS IF IT WAS QUOTED TEXT)', 

136, LITERALS, 

|4,P i 

H?2, 

>76*# 

•OTHER, POINTER TO WHERE TO GO IF THERE IS NO MATCH IN THE PERM, SYMBOL 
• A d L £ • 

TA.LF, POINTER t O TH£ PERMANENT SYMBOL TABLE. 



s#H 

'^m 




m 




fi 








































* 















• 1, l.l.l'.l'.l'.l'.l'.l.l.l’.l.l.l ETC, CHALK IT UP TO 'LINE TOO Lf NG 
PTUSIC, POIW T E* TO 'LIME TOO LONG', 

.PGe*L = E,P01f\fTEff TO RETURN PROM 'GETLIN', 

$J.GT.C-, ITS no t 4 ca°riage return so 

IE I T 3 A DIGIT or GO ACCUMULATE A LITERAL, 

IE PS A LETTER, GO LOOKUP OR CREATE A VARIABLE, 


OUOTEOIOR UNQUOTEO) TEXT, 

CHARACTERS PER WORD, 

TWO ZERO CHARACTERStAT SIGNS DON! EXIST), 
EORCES END OP TEXT, 

double quote, 

FOP ANOTHER SYMBOL, 

GO TO MAKE OR FIND. A VARIABLE, 


REMPACK,OTHERWISE it is 
TXTPAK, PACK TWO SIXBIT 
LHALP i E,‘JJ WITH ONE OR 
RHALF, and 

crjktxt,carriage return 

DQJNTXT,SO DOES ANOTHER 
mtxxit, then try 
PLETTER,WHERE TO 
C775U, LITERALS 
04?r*, 

042, 

THISTXT,TEMPORARY, 

NON0LNK,RqU t INE WHICH SKIPS OVER BLANKS<EVERYWHERE EXCEPT TEXT) 
032, LITERALS, 

07737, 

PXXCDi.F,POINTED TO ( CRLF ) 

PXXtXiT,P01MTEH TO (EXIT) 

LlTRAL, create a literal 
depending on how 

12 BITS, 

36 uITS, 

24 2JTS, OP 
0 UTS LONG, 

AJTO I^DEX POINTER TO FLOATING 
TO HERO LENGTH LITERAL 


JUST1, 
ALL3, 
JUST2, 
'UST r , 
^POPEP 


SYMBOL. 

SYMBOL 

OUT OF THE FLOATING POINT 
MANY LOW ORDER ZEROES, IT 


AC, 

CAN 


BE 


PXXLI Ti3,POINTER 

DIGIT, 

TjGItf, 

ifSUP, 

ifrsE, 

iTSP, 

N0TS6X), 

)767:<, 


0NLY1, 

endwuh. 


POINT TEMPORARY, 

. ... SYMBOL', 

a NUMBER IS TC BE ACCUMULATED# SO SET 'SNUMFLG* AS A FLAG 
TO TELE WHETHER IT SHOULD BE A LITERAL OR A STATEMENT NUMBER'. 
SCAN DIGIT BY DIGIT MULTIPLYING BY 10*,0', 

anj counting the number of digits after a decimal point, 
and watching OUT for 'E' exponent’, 

ACCUMULATE THE EXPONENT 

EITHER plus or minus, 

LITepaL, (WHICH is NOT EXECUTED SINCE THE PREV, INSTRUCTION 
MUST SKIP), 


A\iO subtract the NUMRER OF DIGITS AFTER THE DECIMAL POINT, 

then scale t^e number up or down, 

MULEXP, MULTIPLY BY 10',0 OR DIVIDE BY 10,0', 

STAT'D, NOW COMES THAT FLAG FOR LINE NUMBER OR LITERAL, 

STaT-’O, make A LINE NUMBER OUT OF IT, 

'■digit, floating point temporary for adding digits are they are hit, 

ULXTEN,MULTIPLY BY 10',0 INSTRUCTION, 

JVX*TEN,WHEN ADDED TO 'MULXTEN' MAKES A DIVIDE BY 10,0 INSTRUCTION*. 
PFL--G, DECIMAL POINT FLAG, 

)EeF' AC,NUMBER of DIGITS AFTER THE DECIMAL POINT, 

iSPIi., SPACE SAVER WHICH CHECKS IF THE CHARACTER IS A DIGIT, 

027, LITERALS, 

f^L74>, 

©1774, 

PLIT' ; AL,POINTER TO LITERAL MAKER, 
common, search through 

LUP, USER SYMBOL TABLE FOR A GIVEN LINE NUMBER “ 

NOT, Anj if it is IN THERE RETURN A POINTER Tfi IT 

IN, OTHERWISE PUT IT IN THERE AND THEN RETURN 
















ETTFF, TH-RC UAC A LETTER WW 

which M AY OR HAY NOT BE FOLLOWED 

y a .<c the variable name, 

I Mf LV. A no «?r ARf H THE USE® SYMBOL TABLE 


A VARIABLE, 
BY A D1 r * I T . 


jT’iS FOUND, RETURN A POINTER 


FOR THAT 
TO IT, 


VARIABLE NAME. 


VARIABLE SPACE, AND RETURN A POINTER 


. 0 ii 7 -, 


r£N, 

3QP, 

• OURLF, 

JCH1, 

.1ST, 


BIG, LINE IGNORED' MESSAGEi 


fSCRLUP, if 
iSDEF?, 

TSuE F, 

SCR‘‘OT , OT -i£ 0 W 1SE pyT ONE IN, 

SET UP THE CORRESPONDING 
TO TWAl, 

UTEPAt , 

floating point io,e . 

PUSH down list popper, 

Te*T OF FOUR (CRLF)S. 

LINE HAKFS PROGRAM 'TOO 
DOCS THE LIST COMMAND, 

CHECKS IF THERE IS A LINE NUMBER FOLLOWING 
IF THERE IS, AND IT IS DEFINED* LIST FROM 
JSTALL,OTHERWISE LIST FROM THE BEGINNING, 

’iSTLUp'iLI jTING IS S t OPPED BY TYPING ANY CHARACTER, 
" w i f IT'S (EOF) THEN The listing is done, 

IF IT'S a LINE numrer, print it, 

lIST2» IF ITS A VARIABLE, PRINT IT, 

prinvar,temporary which holds the variable name, 

1ST?, IF IT'S A LIBERAL! THEN PRINT IT, 

I ST 4, IF IT'S TEXT, THEN PRINT IT 
4Ll'P» IN A LOO p , 

ISTS, OTHERWISE IT'S A SYSTEM 

frjrtxt,subroutine for printing 

I RLCOP, 


THE 

THAT 


COMMANDi 
LINE, 


SYMBOL, SO PRINT THAT, 
PACKED ASCII TEXT, 


» RTXRET, 
f RSUB D , 
CUFPR, 

0*741, 

PRINUM, 


0233, 


literal 
ROUTINE 
IT DOE'S 
ROUTINE 
LITERAL, 


IT R E)Y R CONVERTING U TO E FLOATING POlNTtWHICH THE OUTPUT 
WILL PRINT IN INTEGER FORM), 


RESTORE,MUjT PE FOLLOWED BJ t CJLF) OR 
resets the REAO-DATA POINTER, 
'STOP 




BREAk. 
READY, 
CRLF « 
MORE IN, 
INPUT, 


'ready' 

A CARRIAGE 


RETURN LINE FEED, 


OR 


IF IT'S a (C B LF> 

PRINT a ', 

GET A LINE,(CHECKING 
•NPLL'P, 'GETVAR' AND 'STOVAR 

INTO THE LINE BUFFER AND SCAN A 


V THEN ITS THE END OF THE ‘INPUT' STATEMENT, 


FOR 'STOP') 

, SWITCH THE 


NPPT<, 


AND PKITCH 

temporary, 


THE LOCATION COUNTER 


AND FOR EACH VARIABLE, 
LOCATION COUNTER FOR A 
VALUEIEXPRESSIONS OK,), 
BACK AFTERWARD, 


USING 

POINTER 


SWDT 'P, TE 1P0RARY , 
LCTmP,Tc -ipnpARY, 
'1765, LITERAL, 
PSTOF, pointer 
xGisir, Routine 

X1S1T. ROUTINE 
1S:T LIT, ROUTINE 

ZM2 + K 


TO 'STOP' SYMBOL 
which Implements 
which implements 

WHICH CHECKS FOR 
FROM PWORD MEANS 


'GET*I SIT', 

' ISIT' , ■ * 

AND ACCUMULATES LITERALSIAT RUNTIME) 
AN N WORD LITERAL, 




wU't-p" 

























LOADED, PTTORW WITH IT IN THE! FLOATING AC. 

I5L1T, Space SAVER IN IS ITLIT . 

ERROR, EO<C r “E^SagE PRINTING routine; 

QERROP, 

fPT, SLIGWTCY ABNORMAL FLOATING POINT PACKAGE- 27 BIT MANT J SSA , 

HAS 7 ADDRESSABLE INSTRUCTIONS! 

fl^a^i^g jump, 
floating store, 
floating load, 
floating aoo, 
floating subtract, 
floating multiply, 
ani floating divide, 

ADORFSSING is is PAGE hero qirect or INDIRECT if bit 4 is off*. 
OTHERWISE IT is RELATIVE TO THE PROGRAM COUNTER, 

There are also the six floating point skips, an d an exit, 

PIOOP, N'o*i YOU COME TO M Y ( L . W E , ) BASIC PHILOSOPHY ON DC CUMENT AT I ON*. 
PPG?, IF THE REAOE R DOES NOT KNOW POP-8 CODE WELL ENOUGH TC READ THE 
ROCIT, LIFTING, HE SHOULD NOT BE MODIFYING THE CODE, THIS IS ESPECIALLY 
PNOACR,TrL»E for NUMBER CRUNCHING, 

PGOTO, 

PJL'HP, 

PADDR, 

POPER, 

PS*IP, 

PJMP 
PS TO 
IGHWD, 
f 6 DO 
’LAC, 

a APRI , MOR£ OF BASIC EXPONENTIATION, IF THE SECOND ARGUMENT 
w Ai SUITABLE, IT IS DONE BY REPEATED MULTIPLICATION, 

Rl, 

:n, 

)P3, 

t iDw i 

I ’SUB, 

PACO 
LG* Lf , 

CKWO! , 

:tsg* , 

IF All 

I »MUl, 

► 3 Y L 1 ' R , 

H JLCLN, 
f PLOOP, 

» 'TEMP, 
l 577, 

A OHM, 

N TbIG, 

BUMP, 

L DE p F, 

A 1# 

' II'S 

; Jlr , 

201 ' , 
f l t,p, 


SuQSOUTINE TO DO basic 'INT' TO FLOATING AC,(INT(-l,5)»-2>; 






























IT RETURNS WITH THE AC EQUAL TO THE LOW OROE R w ORD PLUS 
(IF 2E*0 ORIGIN INDEXING. THEN 1, ELSE 0). 


fIXLvP, 

2FIXEX, 

fixl> it, 

SSFIKi 
07545 1 , 

ARGERR, PRINlT 'ARGUMENT ERROR' 

DOmRO,' ,0' „ 1T 

OUTNUHi ROWTTN/tTO PRINT FLOATING AC IN BASIC FORMAT, 
OR TRAILING SPACES, 


GIVES NO LEADING 


NONZERO* 

cvtloop, 

FMT2 > 

FMTi, THIS ENTIRE ROUTINE IS STOLEN FROM TSS0 PASIC, 
F M T 3, 

TRY AG IN, 


2EPC r.E: 


I 


OIGLU , 

IX'JP, 

17, LITERALS, 

252, 


3255, 

330' , 

3752' , 

5 MP Y , 

°Nrr <., 

* I yI t up, 

3CC, 

I0RMIT, 

I0RNE.D, 

OTXiC, 

XPC-'OO, 

VLOCP, 

XPCk, 

mPY * 

NUMFU", PJFFER FOR HOLDING ACCUMULATED NUMBER BEFORE printout, 

0206ci LITERALS, 

0761.', 

07775, 

RND, r Uil r 'R N D' FUNCTION.(CAN BE DELETED,). 

frm:>, 

* R M u * , 

■RNCOl i 
F S 0 R * » 

SQP, R'jIC 'SNR' FUNCTION.(CAN RE DELETED,). 

SQL CLP, 

3QE' l T , 

G Q E a I T , 

1076 , 

N, n-iir 1 F■ 1 « ' f UN jtic (CAN BE DELETEO.). 

CxR'CTi 'USERFN' TO HAVVE A POINTER TO A LINE STARTING ' D E F' 
It CHECKS FOR THAT, THEN 'PUSH'ES THE VALUE OF THE FORMAL 
PAGEUP, 5 fjs it EQUAL TO THE ACTUAL PARAMETER, 

Evaluates t he right side of the 'Def' statement, 

T.^'l 'PO°'S THE old VALUE OF THE FORMAL PARAMETER, 

PUSt. r"l, 

TAM, Pa.;'* 'TaN ; function.CAN BE DELETED.). 

CO?, UA>i r 'COS' FUNCTION.(CAN BE DELETED.), 

SIM, PAM r 'SIN' FUNCTION, (CAN BE DELETEO.), 




















Fsr it., 

rsi'iCk, 
PSG-, 
PINT, 
r T A'Tl, 
FTANT 2, 
TSIU? * 

FSI ?*,£?. | 
FSINri, 
PSJNC3, 
FSJNC4, 
FSJI-C5, 
FS1NC6, 
CSJNC7, 
CSINM4| 
UPAKPX, 
FUPPCli 

explong, 

plog, 

PEXP, 

EXP* 

FXXPFX, 

P PI N T t 
FEXPI, 
FEXKS 
FEXP P, 

fexpt: 4 
/Exp:; # 
FEXPC-i 
fexp:*., 

FEXP CT’ i 
FEXP* 
LOG, 
FLOGCc, 
PL0GC3, 
FL0GC4, 
L06FW3, 
LOGACl. 

L 0 G 0 k a i 
FLOGC1, 

A T N, 

A T Nl 0 '*•, 

A T N f: <? 1 , 

atnf.i •, 

F A T iv *■. ' i 

PATNA ,, 

PATM, 

FATNTT, 

PAT' Cl, 

FATNd, 

FATNC3* 

P A T f G4, 

A t *,: 5, 
r A T *. C 6 , 

* A T N C 7 , 

' A T N C , 
FATNCV, 

F A TNC, 


BASIC •** USING EXTENDED FUNCTIONS'. 

IF T U E SECOND ARGUMENT IS SUITABLE, DO IT PY THE MULTIPLICATION 

Method, otherwise* 

Ara S LXP(LOG(A)*B) WITH P0SSI8LE NEGATIVE ARG, TO LCG, 

ba-jic * exp 1 function, (can be deleted.), 


OA'P 'LOG' FUNCTION,(CAN BE DELETED.). 


04?JO 'ATN ; FUNCTION,(CAN BE DELETED.). 




















FATNCJ, 

LIMIT, 

) 

PERf.EYM 

; 

;U ■ 


LlNBUF, 

LBEGIN, 

ENDLIN, 

PDLI3T, 

ENDPDL, 

TOPLIST 

COLUT, 

_ GSPlVD, 

) 


FMjT LOCATION 0=- USER FREE SPACE', 

r ' IS the only POINTER TO it so that changing 'PL IMIT * 
lb iN0>JG M TO REMOVE THE FUNCTIONS, THE INITIAL DIALOG 
DOij TNP ON COMMAND. 

.This is the highest location of changeable use* storage, 
the permanent symbol table is just above it. 

* T i r 0 R M IS EXACTLY WHAT IT LOOKS LIKEl 
CODE WORDJTEXT 'THE SYMBOLS PRINT NAME' 

the line input buffer, translated line starts here, 

ThERF is no COUNTER tor THE FULLNESS OF THE LINE EXCEPT when it 
is JUST COLLECTED, 

MORE OF the LINE INPUT BUFFER, UNTRANSLATED ASCII COMES IN 
STARTING HERE FROM THE TELETYPE, 

The ASCII CAN EXTEND AS FAR AS 'ENDPDL'. BUT THE TRANSLATED 
LINE MUST END AT 'ENDLIN' , 

PUoH COWNJ LIST USED ONLY FOR EXPRESSIONS AND THINGS LIKE THAT', 
'PUL' P UINTS INTO THIS, 

end of the push down list, 

FqH TaPLF, A MAXIMUM of 8 Two WORD ENTRIES, 

A VARIABLE, AND THE LOCATION OF THE 'TO' IN THE 'FOR' STATEMENT. 
'FORCT' IS THE ONES COMPLEMENT OF THE NUMBER OF ENTRIES, 

G0iu n TARLE, A MAXIMUM OF 8 ENTRIES, 

A POINTER To AFTER THE GOSUB, 

'3bJ°TR' POINTS INTO HERE TO THE NEXT FREE SPACE, 

-NJ OF THE GOSUB TABLE', 

77j6 THROUGH 7777 ARE UNTOUCHED BY EXECUTION OF BASIC, 

















Uj-O/C OOCUMENrATION 


)i : ' V 


aASfr pn p w !® 1 1 8 * d ^cri«tiom of the internal workings of 

h. B "- /E:i SINCE: LAB-8/E BASIC IS A MODIFICATION OF 
nS| U v Y nreri?~ T 2 E iSi SE WN AS 4K BASIC)* TW!S DOCUMENT WJU. 
w L DESC iB, The CHANGES made TO EDUSYS-10 to produce LAB-8/E BASIC', 


DOES, 


LAJ-A/c! RASIC WORKS APPROXIMATELY THE SAME 
IT DIFFERS IN the FOLLOWING RESPECTSl 


WAY AS EOUSYS-10 


1) 

2 ) 

3) 


BASIC 

BASIC 

BASIC 


USES 8K OF CORE AS OPPOSED TO 4K OF CORE, 
USES 1NTERUPTS AND HANDLES MORE DEIVCES', 
HAS ADDITIONAL CODE TO HANDLE THE SPECIAL 
WHICH PERTAIN TO THE LAB-8/E, 


LAB-8/E 
LAB-8/E 
LAq*8/E 

commands 

— w » — f 

priTiiBrc WH ! T « FO r L0U,S * S A LI,5T ° r THE Ch,AN GES MADE TO IMPLEMENT THE ABOV 

C I io ' 1 n G 5rJ r V S ? U 5 ED ° r BASIC ANlD ^DUSYS- 10 , A BRIEF* 

" ailTT hel ? !nin JJ 0VI [ ,E0 aT t ME END OF THIS MEMO WHICH DECRIBES WHAT THE 
3UTINES AJOED DO# AND WHAT KEY CORE LOCATIONS MEAN, WHAT THC 


I) 


8K MODIFICATION, 


vrRvTurMr 1 USE AK * THE ALLOWING CHANGE WAS MADE, IN 4K 

HE nS ho m IEL 2 01 IN THE 8K VERSION, EVERYTHING FROM 

ol REM?r P JS n.? W r2 E:SlDE:S lN FtELD ** AOOITION, SOME CODE 

HUS map iou^D look THE CL0CK * N0 A *° 1NSTRUCT,0NS - 


0000-10777 

11000-177S5 


1) 

?) 

3) 

A) 

5) 

ft) 

7) 

S) 

9) 


J 


BASIC SYSTEM CALL CODE NEEDED FOR BASIC] 

RASK SYMBOL AREA, THIS AREA IS THE SAME AS IN 4K BASICl 
IT CONS^TS OF THE FOLLOWING IN THIS ORQERl 
ARRAN AND VAPJABLE SPACE 

r?n^r^ ACE EVERYTHING 'GROWS/ INTO THIS SPACE) 

P.22* F i ED COMPILED) BASIC PROGRAM IMAGE, 

USER SYMBOL TABLE AREA', 

BASIC'S PERMANENT SYMBOL TABLE AREA 

<tty and translated line buffer) 

' H L S T A C K | 

the for-next list 

the GO SUB LIST, 


thus upper core is 

AREA WHERE ALL THE 

variable areas are 


THE 

DRIVING TABLES 
IN BASIC, 


and program. 


















r.. ; 

Mi-'-flC: 




tp 




177s*»«i 777 ; 


LE r T ALU^'E [PRESERVED FOR THE RI* LOAQFR 3 


ALL OF TmL SPACE THAT WAS IN FREE FI EL n Sf IS NOW OCCUPIED 
BY CODE, The BINARY LOADER MUST RE IN FjelD ONE 
DURING LOADING*, WHEN BASIC IS STARTED, JT WILL 
DESTROY IT (RECAUSE IT IS IN THE BUFFER AREA), 

ONLY THE RIM LOADER WILL BE PRESERVED, LAB-8/E BASIC 
*AY HOT gE LOADED BY PS/6*, 



-mu .AGGED WITH 
READER IS MODIFYING 
NG UP INDIRECT 

ALL totaled, 

2E OP A PROGRAM LIKE 


II) 


IMTCRUPT I/O 


Wt c ° hr - T 0 THE SECTION WHICH MAKES THE BIGGEST OlFFERENC* 

BETWEEN EDJSYS-ii' A NO LAB-VE BASIC, INTERUPT I/O GIVES LA8-8/E 
BASIC A ’S IMUL * r FD' BETTER RUN-TIME BECAUSE OF BUFFERING AND ALLOWS 
THE CLOCK To BE USED IN A REAL-TIME MANNER, A BASIC OVERVIEW FOLLOWS! 


IT WAS STATED IN THE PREVIOUS SECTION THAT BASIC SPENDS MOST OF 
VS TIME lij FIELD ONE, THAT IS MOSTLY CORRECT, IF WE TAKE 
HE WORD 'SAMC' AS MEANING THAT PART WHICH RUNS OR TRANSLATES THE 
ROij B AM, Twrp£ EXIST OTHER SECTIONS OF THE PROGRAM 
WHICH PUN MThOUT EVER REFERENCING ANYTHING IN FIELD ON£ THE 

ir?- ?2r T I?t 3 Jur 0NL ° P THES £'. THE 1-0 ROUTINES ARE BASIC'S WAY OF 
2utu T U t 0UTjIDE wor LD, IF BASIC WANTS TP PUT OR GET A 

CHARACTER, l T WALLS T HE j-0 ROUTINES TO DO THIS TASK, WHEN THE CH ARACTER 


— 














f 



















V~', 


i.% 






mm 


■ ‘ 'ELMlM 

i : ■'■■ 


f m'k 


m 




ill °. Nr - lS TvPED * THE 1-0 ROUTINES 


! IS 


WAN*- ahOtVp ASIC WILL contin ue to 'run# UNTIL IT 

CHAi</'-TCR T 'r ; •ii H J! , tS3 LR °e.^ !lTL IT WANTS T0 OUTPUT ANOTHER 
BASir 'rALiVruc^ 1 ! 1 ^ , ASlJ IS USUALLY WAITING TOR INPUT, WHEN 
O^a 4 ? r I H . ;? *Wj TI ? cs » THE lm ° ROUTINES CHECK TO SEE IF IT CAN 

IT ~*nnot rucr tJ S \ it S aN< it DnES IT AND returns to basic, ir 

F r»\{ N o p«<* T !«c * i r T w uL wait r ° R an intepupt TO OCCUR and see 

OESI«*ED P CoSBT?ri T ; Q I LJ T S l\ LL CANN0T » IT WILL WAIT AGAIN UNTIL THr 
5, r !:fP L C /, I? ET * w H1 L E WAITING, THE I**0 ROUTINES * PUT BASIC TO 

2uL5M , |J' l < M. ; °u U JI!JSJ V , CXEeUTIN6 * UTTLE PR0 = R * M CALUEO NULJOB, 
tw i am i>r f the. i • o Routines are waiting for an interupt 

THE D(s?UY B 5SfPer; ULJC,B 13 THE R0UTINE WHlCH DISPLAYS THE CONTENTs'oF 

THE use OF 5 rSr t 5 rl;L T tf! 1 *S D 0 UTINES TO GET OR PUT A CHARACTER, 

THE U..E OF THE SCOPE WILL BE DISCUSSED IN THE NEXT SECTION, 


m 


tm 




A) 


the r,£i poutinei 


« S ; 1 f !"* ”■” an ;,rir’;u ! i 

FOLLOWSl ET T FP ° ™ E 4 CH SPEED REA0ER * THE SEQUENCE OF EVENTS IS AS 

CHFCKS Tn E "rr CHECKS The DEVICE FLAG', IF IT# S A ONE, THEN IT 

QV Tur T P A ^APACTER HAS BEEN TYPED, TYPED CHARACTERS ARF I FTT 

)L srr i VXrV ?? UTlNES ™ A LOCATION CALLEDMNCH^/Jf NO cSiRACTEP 

?n"c i r pb T! I- 9 1 „ Y oalls a routine called * b i d l e ', bidle puts baric 

RETURNS? 1X1 AGATN l '| L nno? B J n NTlL AN INTERUPT OCCURS, AFTER 01OLE^ 

H'TS i?SElV t'2 a2m?. ,NCH4R ' ’ r ST ' U N ° T SET ’ IT 

f 5cL^SciI^^f; H fI s s ?p »«3Ei« e :*eJ:g*S5Ss e ?§§„ , ?HS i 5Tis EMT * THE 

X i " ^r*\i ?|iui?C?53SN ” E A M5c°li N K? E S M g E iyif ?h1 

T i.Ss S s ! ; ™ 

r^i; T s ^\ ; ?ri-^z^ jump1 ;sr« s o ?Niys # T ;?* G i¥ 2 H THtN 

i E £ t M i? E A s: E !r 

SOMT I'RF-F ITT? '*'tc A SJ SPACE (210> IS ALS0 MASKED INTO 137, THUS 
THE AP PRO-J ?ET3 h ° N ™ E CHARACTER ‘ IT *S TH E N RETURNED IN 


) 


THE PUT ROUTINE: 


IT ’C, A.n¥ f ^c U Z5 Wt , PRIWTS A chara cter on the desired output DEVICE* 

A N o-r IS lllrXrn 

. . -I -- ■ .11.! ■ . . . .‘.-■ 




• m ■ 

i 


ft 

•# 


WM 

















■ , m 


/ v V'V^S'J 

..... j* ii iin ■ ^%wBr 


>£ 


eE E 0Wr2CT' u i^ e if Ti;rijrrrI 0 ,ri 0 nrA?rS V *S HtR * cTERS IN ,T ' S 88FF E’ T 0 

Is '^uio T -on-I' E nip P5 ’ R ® ? « S« oSN BL o°uVST a r 8 L M i^ , ,I HEREroRE * 

NOW u ; NO TH. ^ SHOULD PUTER BE CALLeS TO PRINT Vc^WTeJ 

PUTts- Sill ItT |2J* Fr0M THE 0NE WHICH IS NOw USING THE BUErro, 

COSTIVE ru ~ll oJ A r & , IDLE:) UNTIL THE BUFFER IS Empty, THEN IT WILL 
EMPTY, THr -the* ?S t£a t P ? f ? 1BL 1 ? 1ES * 0NE IS ™ AT THE BUFFERS 

SAME DEVICE* l r the RU^Frl I? rSStv Sn)rI ERS ,N IT BUT 50ING T ° 

DEVISE ANn ^IL 1 ; /AMTTTi !J S EMPTY, PUTER 'ASSIGNS' THE BUFFER TO THE 

CHARACTER From The BUFFER A^n U nuTPiiTc E »T HARACTER ' 0uTIT REMOVES one 

fs 5 !ff.vs:s {I E ? F T ;sWJ !ne 0 s , fH t « 1 'ei« 
;R«r? 5 S=,M o ^ R SfeT% 4 !^;s c s : r sSo^ T 4 w ? 0 . TnoL 

IMMEDIATELY. PROCESS CHARACTERS. INSTEAO WE JUST RETURN 


IN 


C) 


The tntepupt chaini 


This 

IT BASICALLY 
MACHINE (AC, 
INTERUPTInl, 
JT DOES FIVD 
;utput FLAG 


IS 


LINK, 
IF IT 


no-r^ f .°^ Tl,IE WHICH CROCKS THE DEVICES on an INTERIJPT. 
OOtS THE FOLLOWING, IT EIRST SAVES THE STATE OF THE 

ETC.), IT THEN DOES JOT'S TO FIND OUT WHICH nFVfrr 
CANNOT find it, it HALTS (A FATAL E*WR> IF° * CE 
}l* Qz l T ° THE CORRECT ROUTINE. ON AN * 

PRINT THE NEXT CHAPTER 0 * 0\ T A^ r rw S <J?rr/h AG AN0 ™ EN CALLS 0UTIT TO 
CHARACTER In Hf-CHAR on TTY N TNr?inPT SP ?T 0 ^ READER 1 NTERU PT» IT PUTS THE 
CONTROL CHARACTER (ic OR IJ) 1 If i? T {^!t CM ^ KS T ° SEE IF IT ' S a 
the character in ,Jchar \l ‘n'Wl S N I-*- IT MERELY PUCES 
•iTLo flag aH f d calls 'outdel' to dfifte 

«*n;, 0,j !r;,n ,rFto ' > f ° ">"? 

,JE,r.'S T a llnl n K 13 ST0P 3ASIC NOW, 

' EAD Im M Twe A intfrmp 5> S T ° E0IT ( ™ E EdiTOR PORTION) 
IN THE INTERUPT CHAIN IS THE CLOCK. WHITH 

. u EYIT rH0M AN INTERUPT, 'INTExj/ RESTORES 


IS 


he only oth r r device 
It DI^CUSS-Iu later, ^0 
ACH'L (AC, LINE, etc 


then it SETS the 
the 

CHECKS NOINT (DISCUSSED 
IT THEN RESETS 


AT 


WILL 

THE 


\ 


) LAJ-<i\t ADDITIONS: 


t*»T E ‘ RE s R * B ;^LV 4 SERIES or COMMANDS MM!CM 

USYS-i*, THE. ACTUAL IMPLEMENTAION WlM CE wU £: Dr E: ^rc R IS FAMIL -I A P WITH 
lationShi® kith The RErT E or^is?? UJfcfc bTde^cS! 9 "* JUST THEtR 



























Thv mjll JOB (OR kl ULJOP > , THIS ROUTINE IS CALLED WHENEVER BASIC 
13 SITING rnR SOMETHING TO HAPPEN, IT RUN3 THE SCOPE IN LAB-0/E 
HajIC. IT Ij ALSO CALLED VIA THE "OELAY" COMMAND, THE DIFFERENCE 
IS JUST IN TRL MANNER OF EXIT, THE FLAG 'NDELAY' CONTROLS THAT', 

NUwJOjj CHECK* to SEE IF THERE IS A PLOTTING BUFFER ASSIGNED, 

IF THERE IS (DISB IS NON-ZERO) THEN IT WILL SET UP 31SAUT0 
TO 3 r USB, IT WILL THEN TAKE OUT X-Y PAIRS OF POINTS AND 
DI oPL A Y THEM, A MINUS ENTRY IS THE END OF LIST INDICATOR, ON 
ENJ OF LIST, IT GOES BACK TO NULJOB AND CHECKS NOELAY TO SEE IF 
IT SHOULD RETURN TO THE CALLER, IF NOT. IT THEN RESTARTS 

all over again by rechecking oisb*, 
the plot statement, 

Whenever a plot command is encountered, basic goes to 'plot*', 
plot first checks to see ip a buffer is assigned, if one is 
not assigned, it assigns space by changing arrloc, it then calls 

PlOTR TO SET up THE CORRECT BUFFER WORDS, WHEN A BUFFER IS 
PRESENT, plot CALLS meval, meval EVALUATES an EXPRESSION', 

IT TH^n MULTIPLIES THIS EXPRESSION BY FSHJFT FOR CORRECT SCREEN 
SCALING, IT THEN CALLS DBLIT TO PLACE IN THE SCOPE BUFFER, 

IT THEN GUFS THE SAME FOR THE Y VALUE (EXCEPT NOT MULTIPLYING)*, 

WHEf'j all ir cone, it then goes to devcon to clean up the command*. 


T»it UiE STATEMENT, 

Th1 3 STATEMENT ALLOCATES a scope buffer in BASIC, it first 
CHECKS To see if a buffer IS assigned', if one is, it returns*. 

IF ONE ISNT'T. THEN it CALLS GETARY TO FIGURE OUT THE SIZE OF 


The asouement and to allocate 

AL0CATED3i IT THEN SETS DIS8 

the correct address and then 
it THEM exits to DEVCON, 


the SPACE CACTUALLY, IT'S ALREADY 
TO 

CALLS PLOTB To SET UP BUFFER*, 


the clear command, 

ThU TaTlm£mT CAUSES the SCOPE BUFFER TO BE CLEARED, IF 
There IS a BUFFER PRESENT (DISBO0), the* it places AN ABORT 
C,;iOE (40713) 45 THE FIRST INSTRUCTION IN THE BUFF* R, NULJOB 
W;.wL STOP DISPLAYING ON THIS, HENCE NOTHING WILL BE DISPLAYED*. 

the t$t function, 

the tst function tests whether or not a character has been 

T»'R£n HY PLACING 'INCHAR' IN AC3 AND THEN NORMAL ZING 
l", BECAUSE INCHaR IS ALWAYS HERO IF NO CHARACTER HAS BEFN TYPED 
*i) IS- ALWAYS NON-HERO IF A CHARACTER HAS BEEN T'PED. THIS 
NL M AVE AS DESIRED AND DESCRIBED, 


T ic. GET and F'UT FUNCTIONS', 

THE GET AND put FUNCTIONS PERFORM THERE TASKS BY MERELY CALLING 
p L'U° AND GETCH WITH THE CORRECT ITEM IN THE AC, THEY INSERT- 

Remove the a bit character from ac3. fairly trivial 

RCLTImES, 


thc. Runouts and no rubouts commands, 
these commands set the variable rbswch to 

A i DO 0 DEPENDING ON WHETHER OR NOT TO PROCESS RUBOUTS, THE 
RD-TI'iE GETCH TESTS TH t S FLAG WHEN JNPUTING CHARACTERS, 

TH\ TaB function, 

This function is the function WHICH CAN POSITION the PRINT 























&ESIREO POSITION, IT CONSIST CF TWO PaRTS, 

Ir* l I ? bT IS TW “ ACT '' A ^ TAB UNCTION, THE - SECOND IS CALLFD 
I / N - !S RY P R INT AFTER EVALUATING AN EXPRESSION 

IF T u f; TaSFlG 13 SET, WHAT HAPPENS IS AS FOLLOWSl 

IS CALLED * * T r I RST F tXES THE ARGUMENT, JT THEN SETS 
fl ?u ( -S r 12 I D 0ICATE: THAT WE HAVE PROCESSED A TAB FUNCTION*, 

GETS THE PRESENT POSITION OF THE PRINT HEAD FROM 

o? J he-S\i N3 RETuRNS ™IS A S THE FUNCTION VALUE, THUS TAB CAN 
? EGUALR FUNCTION, IT THEN RETURNS TO THE CALLER', 
rJpur-s^u^JJ^T?! PR 5 CESS0R CHECKS TA3FLG AFT E R EVALUATING AN 
1 F IT S SET *N0N-2ER0} THEN IT GOES TO TABOO’, TABDO 
! UP 1 HE E WE WANiT T0 50 T0 (LEFT 'TaBOES' BY TAB) XNO 

l JrR L A 2 aLt !r! E 0 ! E ARE BY US,NG COLUMN, IF WE ARE TO FAR IT 
y u^/ 0 £ A RIAGE RETURNI AND A NULt - CHARACTER ( To PREVENT 
I* I p °OOtEMS), IT THEN SPACES OVER THE CORRECT NUMBER OF 
SPACES, WHEN DONE IT RETURNS TO 'PRINT+1' To 

PROCESS THE COMMAND, NOTE THAT WE CANNOT RETURN TO THE 
? E ^IJ" ^ IC t! CALLED IT BECAUSE IT WILL PRINT OUT A VALUE I 

cn\w-&T ’ T IT WILL TAKE THE EVALUATED NUMBER AND 

* u > v t h I it ye ASCII# 


THE r CLLOWING COMMANDS ARE ALL DONE IN (RESIDE) IN FIELD l\ 


THL ATC FUNCTION, 

I H !L!. U * CTI0 ‘ I RENAMED HZADC] CALLS THE ROUTINE UAOCB 
2 E P C AC, UADC3 IS THE GENERAL A«D 


WITH 


DISPATCHER, UADCP HAS TWO COURSES OF ACTION DEPENDING ON THE AC 
THt USER SHOULD READ IT'S DESCRIPTION AT * 

THE END, UADCB WILL RETURN WITH THE CORRECT ADC VALUE IN THE 
EAv, IT will THEN RETURN TO THE CALLER, 

AND. 

THE CLOCK GOING FROM THE ARGUMENTS, IT 
C VIA UMEVAL3 TO GET THE FATE (0*7), IT THEN 
E COMMAND REGISTER ALONG WJTH A 5010, THESE ARE 
ARE FLAG BITS TO RUN IN ^NORMAL' CLOCK MODE’ 
USETM", USETM WILL EVALUATE THE NEXT EXPRESSION 

will then load the clock pegister 

IT THEN CLEARS THE TWO TIME REGISTERS f TI Ml 
ARE INCREMENTED EVERY TIME A CLOCK TJC OCCURS', 


the set ^ate comm 
this command sets 

PIRST CALLS meval 
places this in th 
the correct hardw 
it THEN JUMPS to 
CVIA LMEVAL3 and 
WITH THIS number', 
ANJ TIM2), THESE 
IT then FETUPNS t 


the set clock command, 

^.^[ALIAP TO the set rate command EXCEPT that 
DNTIRE IP PITS OF THr MODE THE USER 
IS USED, JNST SIT 8 IS SET ON TO 


TO JS£ TM, 


HAS 
INSURE 


SPECIFIED 

interupts, 


the 

THEN IT GOES 


the waitc command, 

J?p C 2n^ N ^r W i I J S ^ fr ° R A CL0CK TIC * IT FIRST P ICKS UP THE LOW 
tT J Tur2°r?- °-e Ji-OCK COUNTER CTIM23 AND SAVES IT IN UTEMP 
I ,?p L bL 3 J?hr T ° p UT BASIC TO SLEEP, WHEN IT'S AWAKENED, 
VIA DF7c™* ^ TIME HAS CHANGED, IF IT HAS, IT RETURNS 
VIA DE COM, IF IT HASN'T, IT GOES TO SLEEP AGAIN. 















THE Vl A IT COMMAND , 

THIS IS INTERNALLY IDENTICAL TG the WAITC command, it "FUDGES" 

THIs TINE [TIME] 5-0 THAT WHEN AN INTERUPT OCCURS, JT LOOKS LIKE 
TM? TIME. HAS P'JN OUT AND RETURNS, 

THE ACCEPT COMMAND, 

THt ACCEPT COMMAND WILL SET THE ACCEPT DATA SWITCH [ADACRT] 

IF AND ONLY IF WE HAVE A GOOD * CLEAN BUFFER [ABDGET>?!3. IF 

we oo not, we fall tmhough to the 'reject' command, 

THI; REJECT COMMAND, 

The REJECT COMMAND clears THE ACCEPT DATA FLAG [ADACPT3, IT 
RETuRNf TO BASIC VIA DEVCOM, 

The REAL timf COMMAND, 

THIS COMMAND IS one OF THE MORE HAIRY OF THE NEW 
LA0-5/E SASIC COMMANDS', THE FOLLOWING IS what OCCURS, it first 
CHECKS TO SEE IF WE ARE ACCEPTING DATA*, IF WE ARE, THE 
COMMAND IS IGNORED [VIA SKIPIT3, IF WE APE NOT ACCEPTING DATA, 

WE CALL GET ARY TO GET US THE AREA THE USER REQUESTED, THIS DOME, 
WE THEN USE THIS INFORMATION TO SET THE BUFFER POINTERS 
UPUTl AND APUT2] AND THE BUFFER LIMIT CONTROL INFORMATION 
CADA1.ADA2, AND ADA33, WE THEN GET THE CHANNEL NUMBER 
TO START [VIA UMEVAL3 AND PLACE IT IN ADCX, WE THEN GET THE 
NUMBER OF CHANNELS To USE AND PLACE IT IN ADCUNT, WE FINALLY 
Get the NUMBER OF time COUNTS TO DO AND LEAVE IT IN CT1.CT2 and 
CT4. REMEMBER that THE TIME IS DOUBLE WORD, HENCE THE DOUBLE 
WORD ARITHMETIC at This POINT, CTl is USED TO GIVE us A THREE 
WO*D 2ER0 COUNTER SHOULD THE USER PUT IN 0 AS NUMBER OF COUNTS*. 

note that 2t36 is a very long time, we then hero out 
the NUM3ER O r samples PRESENTLY IN THE BUFFER [AC0UNT3 AND 
tell the system that we've got a good buffer [abdget > 03 *, 


The TIME FUNCTION [TIM] 

The TIME FUNCTION RETURNS THE NUMBER OF TICS, EVERY TIM£ THE 
CLOCK INTERUPTS, CLOCK! (THE CLOCK INTERUPT ROUTINE) INCREMENTS 
TI^2 AND THEM TIM 1 , TIM RETURNS THIS TIME IN TH£ AC, 

Thc 4DB function, 

THIS FUNCTION CALLS UADCR WITH THE AC ALL 7777'S, UADC3 WILL 
BE DESCRIBED NOW, UAOCB IS THE MASTER 
A-D FUNCTION SWITCHER, UADC3 EITHER DOES AM IMMEDIATE 
ADC IF THE AC 13 HERO OR WILL ATTEMPT TO GET A SAMPLE 
USER'S A-D BUFFER IF THE AC IS NON-HERO, IF THE AC IS 
WluL CAUL 00AD WITH THE INTEGERIZED AC 3 (BITS 
OOAJ DOES AN A-D CONVERSION ON THE CHANNEL IN The AC, 

RETURNS THIS VALUE IN THE AC, UAOCB THEN GOES TO UJNAC, 

Trft A -0 VALUE 13 PLACED IN THE FAC, NORMALIZED ■ -- 

INTO THE CORRECT NUMERIC RANGE C-l.V TO +1,V>, 

THEN RETURNS, IF THE AC IS NOT ZERO (FOR AN ADR), 

IT CHECKS TO SEE IF THE BUFFER IS ACTIVE, IF NOT, 

GIVEN, it then CHECKS to see if the buffer is 
Thc. TIME HAS RUN OUT, IF SO, ANOTHER MESSAGE 
IS WELL. IT CALLS AGET TO GET AN A-D VALUE 
PUFFER, 4GFT is MERELY the ring buffer 
IS IN the BUFFER [ACOUNTc03 # THEN AGET 


anTT 

THE 


FROM THE 

hero, it 

it them 
wherf 

THEN BROUGHT 

function 


IS 


SLtEP. 

then 


goes 


AGET RETURNS WITH 
TO UINAC WHICH 


REMOVER, 
WILL RUT 


AN ERROR 
ACTIVE, BUT 
IS GIVEN, IF ALL 
FROM THE USERS 


IF NOTHING 
BASIC TO 


CONVERTED NUMBER IN AC, UADCB 
WAS DESCRIBED ABOVE, 


































TvPQSTANT routines and LOCATIONS, 




I) 


0-2 

OISAUTO 


Pace 


i E R 0 


LOCATIONS 


INDEV, 

0UTD2, 


OUTDEV, 

ODEv, 

cntlc, 

NOINT, 


TO 


RBfWCH, 

DISB, 

PRESET, 

SPECINT 

PCOWT, 


U>Eu FOR 1‘ITERUPT VECTOR', 

#Ajfo REGISTER USED AS POINTED TO NEXT ITEM TO BE 

CEITHER AN X OR Y POINT]'. FOUND IN NULJOB, 

CONTAINS INPUT DEVICE NUMBER (1*TTY, 2«PTR) 

CO^TAJNS output device while accepting AND ECHOING 

FR ° M TU£ TTY ‘ IN OTHER WORDS, A TEMPORARY ASSIGNED 
JJsT TO HOLD THE 'REAL' OUTPUT DEVICE'. 

OUTPUT DEVICE THE ROUTINES WILL USE (0«NOTHING, 

1»TTY, 2«PTP, 3»LPT) 

?^ P L JT K,SE V1Ce CURRENTLY BEING USED BY THE SUFFER, 

* 5 a £°?! R0L 0 rLAG <t3, ‘ IP 0i NO CONTROL 0, 
r w f I P H Te *-LS WHETHER OR NOT THE »C CHARACTER CAN 

r? L dAS I C * CEPTA IN PROCESSES (SUCH AS CORE JUGGLING) 

AM • BE INTERUPTTED, THEREFORE THEY SET THE NOINT SWITCH 
V ' REN OONE. THEY RESET IT TO A 0. IF A *c SHOULD RE 

tI A $77^ M ° T ST0P 0 ASIC, BUT IT WILL SET THE NOINT SWITCH 

^EN WE LEAVE THE CRITICAL PROCESS, NOINT WILL BE 

ir & ? £nwJ2J* E £ IFIT C0NTAINS A 7777, ANO IF SO, WE PROCEED AS 
J. F , A CONTROL C HAD JUST BEEN STRUCK. 

nili J*}* PUB0L,T * SWITCH, 0»IGNORE RUBOUTS, <> TREAT 
LIKE BACK-ARROWS (*•), WHICH IS SHIFT 0. 

| A ^^r'nA, 0 f P ° ESEN|T DISPLAY SUPPER, IF NONE IS PRESENT, 
t2t- T iJJ? If ;^ R 0. BUFFER IS ALWAYS IN UP°ER CORE, 

THis POINTS TO A ROUTINE WHICH RESETS 
INPJT AND OUTPUT AND CLEANS UP THE 
ERROR OCCURS, 

TS T ° SUBROUTINE WHICH CHECKS FOR ADDITIONAL DEVICE 

I ir»r*n ruror^^ THE STANDARD ONES. THE CLOCK TEST IS 
l-UUATc'u THERE.! 

this pointer points to a routine which 

0UTPUT T ° TERMINATE (THE BUFFER EMPTY), THIS IS 
E ^ > Y BECAUSE OTHERWISE ERROR AND/OR LISTING CONTROL 

M ?I I ? 1 N C n I f?Ir?f t° ST IF A CONTROL 0 IS HIT AT THE WRONG 
IT ALSO RESETS THE CONTROL 0 FLAG, TWIS ROUTINE IS AtSO 
USED DY the LIST . OPTION TO SET THE Null *AFTER 
RET ' JRVJ rLAG CPUTXRA], IT STORES TH£ AC 
I l P'.'.XRA FIPST. THFM watts FOR OUTPUT TO TERMINATE, HENCE THIS 


T u IS 

E. 

ALL FLAGS BACK TO TTY 
BUFFERS, NECESSARY AFTER 


AN 


> A 


DELOUT, 

This 


CE-t 


P 6 i 

CNCuR, 

T -i l i 

yPLE c T , 

This 


Not 


ROOM 


T -ic. 


’X«4 FJ&ST, THEN WAITS 
TWO FOLD ROUTINE, 

POTTS TO A ROUTINE WHICH 
!NS THE CURRENT CONTENTS OF 

>n‘tly ey ma*y routines, 

POT. T }rh Iff, T ; c AND CLEARS THE ^01 NT FLAG DISCUSSED EARILER’. 
/r v/lF/nofl If^ T0 GUBR0UT1IN E WHICH DETERMINES WHETHER OR 
vn.VuV •u P ^ A I 0N ' WILL OVERFLOW FREE CORE, THE 
T0 TAKE Sh CULD BE IN THE AC, IF No 
AN erpqd m^saGE IS GIVEN*, 


the output buffer, used 


AMOUNT 
ROOM, 


OF 


















\ E 4 


changed 


routines 


11 ) 

ClRCNTi 

PUTCHJ 


•0 R 


UBLC'WI 

CBwIGHj 


PUT J} 

GETJ! 

P M *«!T | 

f hECkWj 


I. ♦ . 

4 '»• 


• IS! t 


Zf I At 


NP'JT * 


this routine is descoibeo by cnclr above, 

this routine was cwaniged slightly so that if putxra 

- CERTAIN NUMBER OF NULL (000) CHARACTERS WOULD BF 
'JWCH,;0 after the CRLF, THE NUMBER OF NULL'S PUNCHEO JS A 

Ji 0 J " r - NUM0ER OF CHARACTERS 0N the line, 

all OTHE^ factions remain THE SAME, 

NOT a routine# this is where the ring buffer for 

, ^-" J r w T ^;y iCF: ^ LOCATED, RIGHT NOW IT IS A Q o U T 9 LOCATIONS 
LO^. CIT EXTENDS FR 0 M OBLOW TO OBHIGH], uuwAtiqns 

This is the "put” function, implementation is described in 
H i !-0 section# along with the function get, 

3Ei A3 0 VE, 

ThU ROUTINE has changed somewhat, THE FUNCTION 
" .^FIT 0N 5T HI3 W LINr° RP0RATrD T0 SEE WHETHER ° R NCT SOMETHING 

Thi s F UNrT1 0 “ is CALLED with the number OF places 

^ J ri n i*c I I!F A Irc Pf J I cI n lN THE Ac ‘ actually, the AC 
i‘lTMMATTr L ^r ? ES i? E0 MINUS 1 If not ENOUGH room, an 

a JT jmaT I c CRLF IS RIVEN, PRINT ALSO CHECKS THE ST2E nr rur \ ♦kip 
CN TWi OUTPUT DEVICE. SUE IS LEF= T 15 ?51OTh. ” ™ E L,NE 

LhT NOW CHECKS TO SEE IF 

H IT SETS THE putxra flag by calling 
P--*t TO WAIT roo I/O TO terminate, SEE DESCRIPTION above, 

o? 1 ?.?r~ TI ^ *** A3JE0 to enable the easier conversion 

Of IN /‘NISEIS To FAC NUMBERS*, 

?TI?? r °l-LCWlNGl IT CLEARS AC1 & AC2, 

f! PCSITIV£t IT SETS THE EXPONENT TO 233, WHICH 

FLA? fi/? T T IT ALS0 CLEARS THE OVERFLOW 

rL * G (0/), it then RETURNS TO THE CALLER, 

Wti CMECKS T0 SEE 1F the: input is from the reader’ 

IT o, <0 QUESTION' MARK ( ?) IS ft T V/TM *■- ' 

^- * M - r " ” •« - • ' •- • 




























if i' jp'.'T is from the teletype, all is as before, 

PPT: PfJATiMO POI’JT package is as before. E*CEP T FOR some cdf t s', 

Th-. n V .Y TRICKY AREA IS THAT INO IRECTS GC THROUGH FJELO ONF . S* 
i'?- :a'jtio‘ : , 

'i'f • l ' , v' ;L ‘ 

TABS OLaJ^r'E^ PREVIOUSLY (AS WITH TABOO). 

INTEPJ This |’J The ^ain iNTFRUPT processor, it is DESCRIBED ABOVE’, 

The ONLY THpJC not mentioned was sidle, 

BIDLEI PULE IS A ROUTINE TO BE CALLED WHEN YOU WANT To PUT BASIC TO 
SLEEP. ESSENTIALLY THIS SE T S A FLAG CALLED BUSY, WHEN BASIC 
GOES Tn EXIT FPQM AN INTERUPT. 

IT CHECKS THE STATUS OF BUSY, IF IT'S HERO, IT EXITS NORMALLY*, 

this means it was in basic when it interupteo, if it # s one, 

Then P was in the null job routine, if so, then nulljob 
could ONLY be started by biole, hence AFTER SERVICING The 
IniIlPUFT, it RETURNS from BIOLE AND CLEARS THE BUSY FLAG, WHEN 
PULE IS CALLED AGAIN, SIDLE WILL EXIT TO THE LOCATION AS 
DE P I NEC R Y WHAT THE INTERUPT ROUTINES SAVED WHEN IN THE LART 
BJAY 1 STATE, HENCE BUSY IS THE WORD WHICH KEEPS TRACK OF WHAT 
IS GOING ON. 

Intc x t i this routine exits from an interupt. it interoga“es 
* 3 J 3 y' to find out what to do, 

PUTtRJ DESCRIBED '’REVIOUSLY, 

OBOPt ROWS U p EITHER INPUT OR OUTPUT BUFFER FLAG, 

RESETU This RESETS ALL "EVICES, SEE PRESET. 

RESETSi This is a master RESET of all HARDWARE status flags, ONLY called 

w HSTARTING UP BASIC, 

OUTC^UJ DEicRIflCO ABOVE, 


DEVC-'M: CETj NEXT item FROM USER STATEMENT, THEN CALLS DEVCON, 

OEVCOi; t CHECKS ro StF IF I TE W IS A C.R, IF NOT, THEN A 
3 Y »T */ ;PROR RESULTS, 

RTEPT'? TUlj Ct.'Fs THE ’’RATE ERROR” MESSAGE. 


GETARYi TH 13 ROJTINf LOOKS AT USER'S VARIABLE ARGUMENT, IT THEN 

RICKS U=> SUBSCRIPTING INFORMATION', IT THEN CALLS GETADO TQ 
RETuBM last ELEMENT IN ARRAY, IT HAS THE FIRST, aNO MOW THE 
LAjT, SJ IT HAS THE RIPE, IT LEAVES POINTER TO FIRST IN 
ACL AT(D POINTER TO LAST IN AC 2 , THEN IT RETURNS, 

_PLOTBl THIS SETS UP DISPLAY BUFFER, IT SETS UP DISB TO POINT Tq CORRECT 
’ LOCATION, IT PUTS A 4001 IN LAST WORD OF BUFFER, IT 

PJ^ a IN FIRST WORD OF BUFFER SO NOTHING WILL BE 

DIYPLAYLO, TMC M IT RETURNS, 


OBLIU TWiij ROUTINE TAKES TwE FAC AND STICKS IT IN THE BUFFER, 

it firm, c h trx•*? to see if in range (0 to ,9999999999) and then 
if not it 5 ets obad, it then fixes fac, and then 























OBP|>T: 

UUDATAt 

SETUFi 

I SET s 
MEVAL 5 

LLLJMS.t 


TSc 4 , f„^-n- T 10 ?UT W0R0 * IT THEN P ' JTS IN A * 30 * T 0 END 

1 He , 

THIS R6 (/ TIN L PU TS T H& AC IN THE BUFFER, IF T*e CONTENTS OF WHERE 

iwc« 4 flTflri # then we've run out of room and a -too-big* 

MESSAvft is GIVEN, IT RETURNS TO CALLER IF SUDCESSFULL, 


LLLJMPj 

Junoao ? 

I 

CCINTKI 
TST: 


THIS GIVES THE "a -0 FULL" MESSAGE, 

this is originally edusys-io code which wap moved 
BECAUSE, we NEEDED ROOM elsewhere; 

this routine INITIALIZES the display. 

THIS ROUTINE EVALUATES an expression. 

T 0 *eIutS 0 !!!?5 S« U lt$ b ?n°*«? ,mAX GETS AN ERB0 ‘ ! • RETURS ' ,s 

THIS ROUTINE provides communication BETWEEN the 
UPPEH anc lower banks, typical call FROM UPPER is 

yn* LLLJMS 

»ctuw is H ALWAJr?o\%?El r 0 iill? THE USER “ ,SHES To C * LL ,N 

same as llljms except that llljms jms's and 

LLLjmp UMP'S. 

give" the "n a a-d" mfssage. 

this routine c u eck? the clock flag, if up* then 
it G"LP to clocki in field 1 , 

DEHcf'IHED PP P v I 0 "SLY , 


p I E L n 


CLOC -, II this routine IS executed on a clock interuft, 

JI Jutw 1 f S- E - R ! FLAG AND SAVES the status in clk*ts, 

JT T' U L IN-KtMcNTS the time of day C TI M2 AND TIM13, 

If C 2r C !F.S' rtrt ZP l AND A0DGET T0 SEE IF WE'RE sampling, 
i t 1 t Picks up the channel cadcx] and calls 

AS yAN|V TIMES AS NECESSARV as DETERMINED qy 


) 


!J r A r^ S APJT T0 PLACE TME SAMPLES IN. THE 
u'l R * IT T E1 INCREMENTS CT3,CT2 ANQ/OR r Tl To FIND OUT 
i™?* ™ »" ' r BONE. It CLEARS aoaspt ano SETS IsnlET 

IT NDW CHECKS TO SEE IF THE CLOCK IS UP AGAIN, IF IT 

r TM W Tjr £ L t ,! ATE EqK0R * I p IT ISN'T, WE CHECK FOR *C TD SEE 
ir ILlll £,I0W WHERE WE ARE INTERUPT 1 NC. SO FAST THAT * C 

SO TUAT 3 TUL- H -f£nu 0 r A * c IN THE TTY ROUTINES, but NOT P AST { KfOUGH 

^ ^ ^ wpLOCK r LAG TEST WILL Ca t tu tt tutc ^ ^ ■■» —— „ 























could "lock out** basic so nothing could happen, that is 

WHY Wt MUST CHECK 1 POP *C HERE, IP THIS IS THE CASE 
> THEIU wE MUST TAKE THf SAME ACTION AS FOR THE CASE WHERE 

WE COULD Phy c ICALL v DETECT THE FACT THAT The CLOCK WAS 

Sunning too past, when we decide that the clock is running too pas 

WE STOP the CLOCK (TO PREVENT FURTHER CLOCK INTERL'PTS) AND 
Call 'RURR' to PRINT OUT the ERROR MESSAGE CRATE ERROR”3*i 
IP THERE was NO ERROR, THEN we EXIT NORMALLY VIA UNTEXT', 

ARUT: This PUTS A SAMPLE in the BUFFER, IF NO ROOM, WE get 

a suffer full message, pointers are set up by real time statement; 

AGET: OPPOSITE OF APUT. IF NOTHING THERE, IT PUTS BASIC To 

sleep until an interupt occurs; described previously, 

ABOP: This bops up pointers of aput AND AGET, LIMITS set by 

peal time STATEMENT, ADA1,ADA2 AND ADAS APE DETERMINING 
LIMITS AND FACTORS, 

UCLS: ClS FUNCTION, PICKS UP CLKSTS AND RETURNS IT, 

UCLCl EXECUTES 6137 AND RETURNS RESULTS IN FAC, 

UUULLLI ThIS 1*5 THE UPPER COPE RESETER', 

OOAOJ Takes AC AS CHANNEL NUMBER AND DOES CONVERSION, HAS 
TIM L OUT INCASE no a-d or a-d not working, 

' : - 

JSETF| THIS ROUTINE TAKE* THE AC AND HAKES IT INTO A GOOD FAC, 

IT CALLS &EGFIX AND ANORM, 

UUAC1-3I THESE ROUTINES ADO AC1 *AC3 

RESPECTIVELY TO THE AC, THEY GET IT FROM FIELD 0. 

UUMEVAL«M£VAL PUDGE CALL 

UUPFIXi FIX PUDGE CALL. 

UUDEVCI OEVCON FUQGt CAuL, 

IUJMSI UPP£R CORE COUNTER PART OF LLLJMS 

UUJMpj UPPER CORE COUNTER PART OF LLLJMP 

upccmoojupplr core commano dispatcher, VERY simple, 

UP FUN I UPPER COPE FUNCTION DISPATCHER', ALSO SIMPLE. 
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